;=================================================================
; Programa para zerar o nibble mais significativo de todos os bytes do vetor kp
;========================================================================

        absentry Entry
        
Ram        equ  $1000
Rom        equ  $4000

Code       equ  Rom
Data       equ  Ram

Stack_f    equ  Rom
Stack_i    equ  Rom-$100
                  
Reset      equ  $FFFE        

;Interrupt Vectors
            ORG   Reset
            DC.W  Entry           ; Reset Vector
            
;Data Area
TAM     equ     8

            org Data
kp      ds.b    TAM

;Code
            org Code
Entry:
    lds #Stack_f   

    ldx #kp
Again:    
    ldaa 0,x
    anda #$0F
    staa 1,x+
    cpx #(kp+TAM)
    bne Again    
     
Sai:            
    bra Entry
    end    
    
                